home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / Handy Mail 1.0b4 folder.sit / Handy Mail 1.0b4 folder / Handy Mail 1.0b5 Patch / Drag items to "Resources" / New Mail / background_2669.txt < prev    next >
Text File  |  1996-01-31  |  7KB  |  302 lines
  1. -- background: 2669 from stack: in
  2. -- bmap block id: 3708
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on tidy
  8.   -- global gTELine
  9.   -- put bg fld id 15 into line gTELine of bg fld id 14
  10.   put bg fld "subList" into temp
  11.   repeat with k = 1 to number of lines of temp
  12.     if line k of temp = "" then
  13.       delete line k of temp
  14.     end if
  15.   end repeat
  16.   put temp into bg fld "subList"
  17. end tidy
  18.  
  19. on updateSubList theText,theWord
  20.   global gTELine
  21.   if theWord = 4 then
  22.     put (word 1 to 3 of line gTELine of bg fld "subList") && theText into line gTELine of bg fld "subList"
  23.   else
  24.     put theText into word theWord of line gTELine of bg fld "subList"
  25.   end if
  26. end updateSubList
  27.  
  28. function omitSpace theText
  29. repeat
  30.   --if offset(" ",theText) 竕  0 then
  31.   get offset(" ",theText)
  32.   if it 竕  0 then
  33.     delete char offset(" ",theText) of theText
  34.   else
  35.     exit repeat
  36.   end if
  37. end repeat
  38. return theText
  39. end omitSpace
  40.  
  41.  
  42.  
  43. -- part 38 (field)
  44. -- low flags: 20
  45. -- high flags: 4001
  46. -- rect: left=66 top=6 right=21 bottom=421
  47. -- title width / last selected line: 1
  48. -- icon id / first selected line: 1 / 1
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 9
  52. -- style flags: 0
  53. -- line height: 12
  54. -- part name: sendTo
  55.  
  56.  
  57. -- part 7 (button)
  58. -- low flags: 00
  59. -- high flags: A009
  60. -- rect: left=365 top=230 right=258 bottom=442
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 16383
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Send
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global mailGood
  72.   put true into mailGood
  73.   close window (short name of this stack)
  74. end mouseUp
  75.  
  76. on sendTheMail
  77.   global gFCHeaderShare,gFCBodyShare,gRecipientList
  78.  
  79.   put line 1 of bg fld "sendTo" into gRecipientList
  80.   if gRecipientList = "" then err "No recipient specified."
  81.   if "," is in gRecipientList then put replaceChar(gRecipientList,","," ") into gRecipientList
  82.  
  83.   put "Subject:" && bg fld "subject" & return into gFCHeaderShare
  84.   put "To:" && gRecipientList & return after gFCHeaderShare
  85.   put "Reply-To:" && bg fld "Reply" & return after gFCHeaderShare
  86.   put "From:" && bg fld "Reply" & return after gFCHeaderShare
  87.   put bg fld "body" & return & return into gFCBodyShare
  88.  
  89.   put selectedText(bg btn id 45) into mtype
  90.   serverTask "sendMail_" & mtype
  91.  
  92.   if freeSize of this stack > 5000 then doMenu "compact stack"
  93. end sendTheMail
  94.  
  95. on err theErr
  96.   beep
  97.   answer theErr with "OK"
  98.   set hilite of bg btn id 7 to false
  99.   exit to hyperCard
  100. end err
  101.  
  102.  
  103.  
  104. -- part 39 (field)
  105. -- low flags: 20
  106. -- high flags: 4001
  107. -- rect: left=66 top=23 right=38 bottom=421
  108. -- title width / last selected line: 1
  109. -- icon id / first selected line: 1 / 1
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 9
  113. -- style flags: 0
  114. -- line height: 12
  115. -- part name: reply
  116. ----- HyperTalk script -----
  117. on closeField
  118.   checkIt
  119. end closeField
  120.  
  121. on exitField
  122.   checkIt
  123. end exitField
  124.  
  125. on checkIt
  126.   if bg fld "reply" = "" then
  127.     if hilite of bg btn id 43 then
  128.       put 43 into theBtn
  129.     else
  130.       put 44 into theBtn
  131.     end if
  132.     send mouseUp to bg btn id theBtn
  133.   end if
  134. end checkIt
  135.  
  136.  
  137.  
  138. -- part 25 (button)
  139. -- low flags: 00
  140. -- high flags: A008
  141. -- rect: left=279 top=234 right=254 bottom=354
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 16383
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Cancel
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   global mailGood
  153.   put false into mailGood
  154.   close window (short name of this stack)
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 34 (field)
  160. -- low flags: 20
  161. -- high flags: 4001
  162. -- rect: left=66 top=40 right=55 bottom=421
  163. -- title width / last selected line: 1
  164. -- icon id / first selected line: 1 / 1
  165. -- text alignment: 0
  166. -- font id: 3
  167. -- text size: 9
  168. -- style flags: 0
  169. -- line height: 12
  170. -- part name: subject
  171.  
  172.  
  173. -- part 27 (field)
  174. -- low flags: 04
  175. -- high flags: 0007
  176. -- rect: left=10 top=77 right=226 bottom=438
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 4
  181. -- text size: 9
  182. -- style flags: 0
  183. -- line height: 12
  184. -- part name: body
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   put selectedText(me) into temp
  188.   -- delete word 1 of temp
  189.   put temp into bg fld "editHeader"
  190. end mouseUp
  191.  
  192.  
  193. -- part 41 (button)
  194. -- low flags: 00
  195. -- high flags: 2000
  196. -- rect: left=6 top=25 right=37 bottom=56
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 16383
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: 
  205. ----- HyperTalk script -----
  206. on mouseDown
  207.   put bg fld "reply" into t
  208.   put replaceAliasStr(bg fld "reply") into bg fld "reply"
  209.  
  210.   wait until the mouse is up
  211.   put t into bg fld "reply"
  212. end mouseDown
  213.  
  214.  
  215. -- part 42 (button)
  216. -- low flags: 00
  217. -- high flags: 0000
  218. -- rect: left=431 top=3 right=19 bottom=443
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 22604 / 22604
  221. -- text alignment: 1
  222. -- font id: 16383
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: 
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   callHelp "New Mail"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 45 (button)
  235. -- low flags: 00
  236. -- high flags: A10B
  237. -- rect: left=13 top=58 right=73 bottom=150
  238. -- title width / last selected line: 55
  239. -- icon id / first selected line: 1 / 1
  240. -- text alignment: 1
  241. -- font id: 3
  242. -- text size: 9
  243. -- style flags: 0
  244. -- line height: 12
  245. -- part name: Mail type
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   checkMType
  249. end mouseUp
  250.  
  251. on checkMType
  252.   put selectedText(bg btn id 45) into t
  253.   set enabled of bg btn "list" to false
  254.   set lockText of bg fld "sendTo" to false
  255.  
  256.   if t = "Internet" then
  257.     put "[Admin]@[Domain]" into bg fld "reply"
  258.   else if t = "FirstClass" then
  259.     global gFCAdminName
  260.     put gFCAdminName into bg fld "reply"
  261.   else if t = "List" then
  262.     global gListPath
  263.     put "[Admin]@[Domain]" into bg fld "reply"
  264.  
  265.     put fileList(gListPath) into bg btn "list"
  266.     select line 1 of bg btn "list"
  267.     set enabled of bg btn "list" to true
  268.     set lockText of bg fld "sendTo" to true
  269.     send mouseUp to bg btn "list"
  270.   end if
  271. end checkMType
  272.  
  273.  
  274.  
  275. -- part 46 (button)
  276. -- low flags: 01
  277. -- high flags: A10B
  278. -- rect: left=166 top=58 right=73 bottom=312
  279. -- title width / last selected line: 25
  280. -- icon id / first selected line: 1 / 1
  281. -- text alignment: 1
  282. -- font id: 3
  283. -- text size: 9
  284. -- style flags: 0
  285. -- line height: 12
  286. -- part name: List
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   put selectedText(me) & "@[Domain]" into bg fld "sendTo"
  290. end mouseUp
  291.  
  292.  
  293. -- part contents for background part 45
  294. ----- text -----
  295. Internet
  296. List
  297. FirstClass
  298.  
  299. -- part contents for background part 46
  300. ----- text -----
  301. hdmail
  302. MUM